home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
sprt priorities
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
68 lines
0 poke3280,14:poke46,14:poke53281,6:print"[147] *** - loading/checking data - ***"
1 dimea(20):c1=0:dl=100:in=1:le=51:q=8:ad=52832:deffna(z)=dl+(x*in)
2 forx=0tole:cs=0:forc=0toq-1:readd:cs=cs+d
3 ifd<256then6
4 ifc=q-1thenprint"[147] data quantity error in line:-"fna(z):stop
5 ea(c1)=fna(z):c1=c1+1
6 pokead+x*q+c,d:next
7 readd:ifd<>csthenea(c1)=fna(z):c1=c1+1
8 next
9 x=c1:ifc1=0thenprint"[147] data is error free":goto12
10 print"[147]data error list"
11 forc=0tox:printea(c)"*";:next
12 rem *** to call from within basic program - use sys52832
13 rem *** to call from within machin language programs - use jsr $ce60
14 end
100 data32,168,206,32,178,206,32,200,1054
101 data206,32,91,207,169,29,160,208,1102
102 data32,149,206,32,127,207,169,23,945
103 data160,208,32,149,206,32,127,207,1121
104 data169,28,160,208,32,149,206,32,984
105 data127,207,169,16,160,208,32,149,1068
106 data206,32,127,207,96,141,128,207,1144
107 data141,146,207,141,172,207,140,129,1283
108 data207,140,147,207,140,173,207,96,1317
109 data160,44,169,0,153,191,207,136,1060
110 data16,250,162,7,160,15,185,0,795
111 data208,157,175,207,136,185,0,208,1276
112 data157,183,207,202,136,16,239,96,1236
113 data160,0,185,175,207,141,199,207,1274
114 data185,183,207,141,208,207,185,39,1355
115 data208,141,217,207,185,248,7,141,1354
116 data226,207,185,236,207,141,235,207,1644
117 data162,8,189,191,207,221,190,207,1375
118 data240,5,144,3,32,0,207,202,833
119 data208,240,200,192,8,208,203,96,1355
120 data189,190,207,141,252,207,189,191,1566
121 data207,157,190,207,173,252,207,157,1550
122 data191,207,189,199,207,141,252,207,1593
123 data189,200,207,157,199,207,173,252,1584
124 data207,157,200,207,189,208,207,141,1516
125 data252,207,189,209,207,157,208,207,1636
126 data173,252,207,157,209,207,189,217,1611
127 data207,141,252,207,189,218,207,157,1578
128 data217,207,173,252,207,157,218,207,1638
129 data189,226,207,141,252,207,189,227,1638
130 data207,157,226,207,173,252,207,157,1586
131 data227,207,96,160,0,162,0,189,1041
132 data200,207,153,0,208,200,189,191,1348
133 data207,153,0,208,189,209,207,157,1330
134 data39,208,189,218,207,157,248,7,1273
135 data232,200,192,16,208,225,96,173,1342
136 data0,16,240,42,201,255,240,38,1032
137 data160,0,140,252,207,185,227,207,1378
138 data170,173,0,16,74,202,16,252,903
139 data144,9,173,252,207,25,244,207,1261
140 data141,252,207,200,192,8,208,229,1437
141 data173,252,207,141,0,16,96,0,885
142 data0,0,0,0,0,0,0,0,0
143 data0,0,0,0,0,0,0,0,0
144 data0,0,0,0,0,0,0,0,0
145 data0,0,0,0,0,0,0,0,0
146 data0,0,0,0,0,0,0,0,0
147 data0,0,0,0,0,0,0,0,0
148 data0,0,0,0,0,0,0,0,0
149 data0,0,0,0,0,1,2,3,6
150 data4,5,6,7,1,2,4,8,37
151 data16,32,64,128,0,0,251,251,742